Aminet 1 (Walnut Creek)/Aminet - June 1993 [Walnut Creek].iso/aminet/util/gnu/emacs_src_18_58.lha/emacs-18.58/.emacs-menu.el

Text File | 1992-05-16 | 2KB | 1 lines

(amiga-menus-set (quote (("Project" (("Open     C-x C-f" (call-interactively (quote find-file)) 79) ("Save     C-x C-s" (call-interactively (quote save-buffer)) 83) ("Save As  C-x C-w" (call-interactively (quote write-file)) 87) nil ("Quit     C-x C-c" (call-interactively (quote save-buffers-kill-emacs)) 81))) ("Edit" (("Undo            C-_" (call-interactively (quote undo)) 85) nil ("Mark            C-@" (call-interactively (quote set-mark-command)) 77) ("Cut             C-w" (call-interactively (quote kill-region)) 88) ("Copy            M-w" (call-interactively (quote copy-region-as-kill)) 67) ("Paste           C-y" (call-interactively (quote yank)) 86) ("Paste Previous  M-y" (call-interactively (quote yank-pop)) nil))) ("Search" (("Find Forward      C-s" (call-interactively (quote isearch-forward)) 70) ("Find Backward     C-r" (call-interactively (quote isearch-backward)) 66) nil ("Find Fwd Regexp   M-C-s" (call-interactively (quote isearch-forward-regexp)) nil) ("Find Bwd Regexp" (call-interactively (quote isearch-backward-regexp)) nil) nil ("Query Replace     M-%" (call-interactively (quote query-replace)) 82) ("Query Rpl Regexp" (call-interactively (quote query-replace-regexp)) nil))) ("Window" (("Split       C-x 2" (call-interactively (quote split-window-vertically)) 50) ("Split H     C-x 5" (call-interactively (quote split-window-horizontally)) nil) nil ("One Window  C-x 1" (call-interactively (quote delete-other-windows)) 49) ("Delete      C-x 0" (call-interactively (quote delete-window)) 48) nil ("Enlarge     C-x ^" (call-interactively (quote enlarge-window)) 69) ("Next        C-x o" (call-interactively (quote other-window)) 78))) ("Buffers" (("List    C-x C-b" (call-interactively (quote list-buffers)) nil) ("Change  C-x b" (call-interactively (quote switch-to-buffer)) nil) ("Kill    C-x k" (call-interactively (quote kill-buffer)) nil))) ("Help" (("Tutorial          C-h t" (call-interactively (quote help-with-tutorial)) 84) ("Information       C-h i" (call-interactively (quote info)) 72) nil ("Where Is Command  C-h w" (call-interactively (quote where-is)) nil) ("What Is Command   C-h f" (call-interactively (quote describe-function)) nil) ("What Is Key       C-h k" (call-interactively (quote describe-key)) nil) ("Apropos           C-h a" (call-interactively (quote command-apropos)) nil))))))